home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / iv.dir / 00049_select text box callback.ls < prev    next >
Encoding:
Text File  |  1996-04-19  |  2.3 KB  |  60 lines
  1. on mouseDown
  2.   global givTextRegColor, givTextHiliteColor, givState, givLastIndexLine, givCurrIndexLine, givSelectCleanupFlag, givSELECTFORESPRITE, givSELECTBACKSPRITE
  3.   if the controlDown then
  4.     set the selectType of givState to #none
  5.     set givSelectCleanupFlag to 1
  6.     go("ivMain")
  7.     set the visible of sprite givSELECTFORESPRITE to 0
  8.     set the visible of sprite givSELECTBACKSPRITE to 0
  9.     set the castNum of sprite givSELECTFORESPRITE to the number of cast "nullcast"
  10.     set the castNum of sprite givSELECTBACKSPRITE to the number of cast "nullcast"
  11.     dontPassEvent()
  12.     exit
  13.   end if
  14.   set mLine to the mouseLine
  15.   set givLastIndexLine to -1
  16.   MessagePut("entering" && the selectType of givState && "selectTextBox callback, mouseLine: " & mLine)
  17.   if the doubleClick and (mLine <> -1) then
  18.     MessagePut("double-click detected")
  19.     dontPassEvent()
  20.     exit
  21.   end if
  22.   if the selectType of givState = #topic then
  23.     set castNam to "TopicSelectText"
  24.   else
  25.     set castNam to "AthleteSelectText"
  26.   end if
  27.   if (mLine <> -1) and (the mouseCast = the number of cast castNam) then
  28.     set executeOnce to 0
  29.     set the foreColor of cast castNam to givTextRegColor
  30.     repeat while the stillDown or (executeOnce = 0)
  31.       if the mouseCast = the number of cast castNam then
  32.         set mLine to the mouseLine
  33.         if mLine >= the number of lines in field castNam then
  34.           set mLine to the number of lines in field castNam - 1
  35.         end if
  36.         if (mLine <> givLastIndexLine) and (mLine <> -1) then
  37.           set the foreColor of line givLastIndexLine of field castNam to givTextRegColor
  38.           set the foreColor of line mLine of field castNam to givTextHiliteColor
  39.           set givLastIndexLine to mLine
  40.           if the selectType of givState = #topic then
  41.             set the topicSelectListPtr of givState to mLine
  42.           end if
  43.           if the selectType of givState = #athlete then
  44.             set the athleteSelectListPtr of givState to mLine
  45.           end if
  46.           set executeOnce to 1
  47.         end if
  48.       end if
  49.     end repeat
  50.     set givLastIndexLine to mLine
  51.     set givCurrIndexLine to givLastIndexLine
  52.   else
  53.   end if
  54.   if the selectType of givState = #topic then
  55.     DoTopicSelect(the topicSelectListPtr of givState)
  56.   else
  57.     DoAthleteSelect(the athleteSelectListPtr of givState)
  58.   end if
  59. end
  60.